home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
CRT.SWG
/
0019_Writing to Line 25.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-02-05
|
1KB
|
34 lines
{
SB> Hi, i got a LITTLE problem, i want to make a window that takes all 2
SB> lines of my screen. There is a little piece of code that do this
SB> window, but when it is executed, i lost the first line, could someon
SB> help me?
Here's something that I have in my tool box that may help you out. }
PROCEDURE WriteC80_25(S, Fore, Back, Blink : Byte);
{ This procedure will write a single character to the 80th column,
25th row of the screen without scrolling it on a color monitor }
BEGIN
Mem[$B800:3998] := S;
Mem[$B800:3999] := Blink + (Back SHL 4) + Fore;
END; { WriteC80_25 }
PROCEDURE WriteM80_25(S, Fore, Back, Blink : Byte);
{ This procedure will write a single character to the 80th column,
25th row of the screen without scrolling it on a Mono monitor }
BEGIN
Mem[$B000:3998] := Ord(S);
Mem[$B000:3999] := Blink + (Back SHL 4) + Fore;
END; { WriteM80_25 }
What I would do in your case is I would call the appropriate procedure
for the last character that you write to the screen in your Draw_Window
routine.
Hope that helps you!
Tom Carroll